home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 June
/
Ahoy_Magazine_87-06_1987_Double_L.d64
/
Cave Of Ice Ape
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
61 lines
10 rem cave boot--by jc hilty
11 poke53281,0:poke53280,0:gosub50
12 forx=49154to49320:reada:pokex,a:next
13 poke147,0:sys57812"ape title",8,1:sys62631:sys49154
14 s=54272:forx=0to24:pokes+x,0:next:pokes+24,15:pokes+6,240
15 readn1,n2,dr:ifn1=0then24
16 pokes+1,n1:pokes,n2:pokes+4,17:forz=1todr/2:nextz:pokes+4,16
17 fort=0to40:nextt:goto15
24 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4
25 poke53270,peek(53270)and239:poke53281,0:poke646,0
26 printchr$(147):print:print
27 print"load"chr$(34)"caveape"chr$(34)",8":print:print:print:print
28 print"run":print"loading program....[144]":printchr$(19):poke198,2
29 poke631,13:poke632,13
30 end
50 print"[147] [146] ":print" [146][154]our search was finally over...."
51 printtab(3)" ":printtab(7)"[154]a few months ago your true"
52 printtab(7)"love,maxine,was on a trip to"
53 printtab(7)"the himalayan mountains. she was"
54 printtab(7)"never heard from again. you"
55 printtab(7)"have searched for her ever"
56 printtab(7)"since. one day you heard a"
57 printtab(7)"scream coming from a cave."
58 printtab(7)"the snow was blowing and the"
59 printtab(7)"temperature below zero,but"
60 printtab(7)"you had to look into the cave.":print:print
61 printtab(7)"there was maxine-being held"
62 printtab(7)"prisoner by a large ape like"
63 printtab(7)"creature!":print:print
64 printtab(7)"you had entered the...."
65 return
100 data 173,17,208,41,239,9,32,141,17,208,173,22,208,41,223,9
101 data 16,141,22,208,173,24,208,41,240,9,8,141,24,208,76,43
102 data 192,173,17,208,41,239,141,17,208,162,127,160,64,134,252,132
103 data 251,162,4,160,0,134,254,132,253,162,131,160,39,32,127,192
104 data 162,131,160,40,134,252,132,251,162,216,160,0,134,254,132,253
105 data 162,135,160,15,32,127,192,173,16,135,141,33,208,162,96,160
106 data 0,134,252,132,251,162,32,160,0,134,254,132,253,162,127,160
107 data 63,32,127,192,173,17,208,9,16,141,17,208,96,142,1,192
108 data 140,0,192,160,0,177,251,145,253,165,252,205,1,192,208,8
109 data 165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253
110 data 208,227,230,254,76,135,192
120 rem song data
130 data 15,122,250,12,73,250,15,122,250,12,73,250
132 data 13,201,250,15,122,250,13,201,250,13,201,250
134 data 15,122,250,12,73,250,15,122,250,12,73,250
136 data 15,122,250,13,201,250,13,201,250,13,201,250
138 data 15,122,250,12,73,250,15,122,250,12,73,250
140 data 13,201,250,15,122,250,13,201,250,13,201,250
142 data 12,73,250,15,122,250,12,73,250,15,122,250
144 data 13,201,250,12,73,250,12,73,250,12,73,250
146 data 15,122,250,12,73,250,15,122,250,12,73,250
148 data 13,201,250,15,122,250,13,201,250,13,201,250
150 data 15,122,250,12,73,250,15,122,250,12,73,250
152 data 15,122,250,13,201,250,13,201,250,13,201,250
154 data 15,122,250,12,73,250,15,122,250,12,73,250
156 data 13,201,250,15,122,250,13,201,250,13,201,250
158 data 12,73,250,15,122,250,12,73,250,15,122,250
160 data 13,201,250,12,73,250,12,73,250,12,73,1000
500 data 0,0,0